local function setTransparency(char,transp)
	for i,v in pairs(char:GetDescendants()) do
		if v:IsA("Accessory") then 
			v:Destroy()			
		elseif v:IsA("BasePart") and v.Name~="HumanoidRootPart" then
			v.Transparency=transp
		elseif v:IsA("Decal") then
			v.Transparency=transp
		end
	end
end
local function create(a,b)
	local n = Instance.new(a)
	for i,v in pairs(b) do n[i]=v end
	return n
end

setTransparency(owner.Character,1)
local rp = owner.Character.Humanoid.RootPart
do
	local nrp = rp:Clone()
	nrp.Parent = owner.Character
	rp:Destroy()
	rp=nrp
end
local subspace_settle = "rbxassetid://11956590"
local subspace_suspense = "rbxassetid://11984254"
local subspace_boom = "rbxassetid://11984351"
local sound = create("Sound",{
	Name="Running",
	SoundId=subspace_settle,
	Parent=rp,
	Looped=true,
	Volume=3,
	RollOffMaxDistance=16
})
while true do
	local char = owner.Character
	local hum = char.Humanoid
	local speed = hum.RootPart.AssemblyLinearVelocity
	local sv = math.clamp((math.abs((speed*Vector3.new(1,0,1)).Magnitude)/16),0,1)-.6
	setTransparency(char,1-sv)
	if sv>.12 then
		if not sound.Playing then
			sound:Play()
		elseif sound.TimePosition >= .3 then
			sound.TimePosition = 0
		end
	elseif sound.Playing then
		sound:Stop()
	end
	task.wait()
end